home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / roboxtra.zip / MM_PTR.RS < prev    next >
Text File  |  1992-02-15  |  2KB  |  33 lines
  1. ;-----------------------------------------------------------------------
  2. ;TITLE "Reset MarkMail pointers using BBSID.PNT"
  3. ;FILENAME:  mm_ptr.rs
  4. ;-----------------------------------------------------------------------
  5. ; NOTE: This script file is for use with Robocomm ver 4.x
  6. ;       and the MarkMail door. It assumes that PKunZIP and PKZIP
  7. ;       are in your path. Written by Michael MacDonald
  8. ;-----------------------------------------------------------------------
  9.  
  10. MESSAGE "Resetting message pointers"
  11. WHEN "%BBS32%" SEND "N|"                       ;More?
  12. WHEN "%BBS34%" SEND "|"                        ;Pause
  13. WAITFOR "%BBS35%"                              ;Main Board Prompt
  14. SEND "OPEN %BBS63%|"                           ;Door number
  15. WAITFOR "%BBS40%"                              ;Mail Door Main Prompt
  16. RUN "PKUNZIP -o %QWKDIR%%ID%.QWK %ID%.PNT"     ;Unzip the PNT file
  17. IF ERRORLEVEL GOTO ERROR                       ;PKunZIP failed
  18. RUN "PKZIP %REPDIR%%ID%.REP %ID%.PNT"          ;Zip it into the REP
  19. IF ERRORLEVEL GOTO ERROR                       ;PKZIP failed
  20. SEND "U|"                                      ;Request REP upload
  21. WAITFOR "%BBS42%"                              ;Start REP upload
  22. UPLOAD "%REPDIR%%ID%.REP" USING "%BBS22%"      ;Upload the REP
  23. WAITFOR "%BBS40%"                              ;Mail Main Prompt
  24. MESSAGE "Deleting %REPDIR%%ID%.OLD"
  25. ERASE "%REPDIR%%ID%.OLD"                       ;Delete BBSID.OLD
  26. MESSAGE "Renaming %REPDIR%%ID%.REP to %REPDIR%%ID%.OLD"
  27. RENAME "%REPDIR%%ID%.REP" TO "%REPDIR%%ID%.OLD";Rename REP file
  28. SEND "Q|"                                      ;Quit back to PCBoard
  29. EXIT 0                                         ;Exit the script
  30. :ERROR
  31. SEND "Q|"                                      ;Quit the Mail Door
  32. EXIT 1                                         ;Exit with an error
  33.